#!/usr/bin/perl

use LWP::UserAgent;
use URI::Escape;
use HTTP::Request::Common qw(POST GET);
use XML::Simple;

my $url = shift;
my $ua = LWP::UserAgent->new();
my $req = GET 'https://aap_ugr:xxx@api.del.icio.us/v1/posts/recent?url='.uri_escape($url).'&description=NewUrl'; 
my $res = $ua->request($req);
if ($res->is_success) {
  my $respuesta=XMLin($res->content);
  print "El URL $url ha recibido el cÃ³digo de respuesta $respuesta->{'code'}\n";
} else {
  die $res->status_line;
}
